Namespace Events

    Public Class ChildNodeEventArgs : Inherits EventArgs
        Private ReadOnly mChildNode As IPreferencesNode

        Public Sub New(ByVal changedChildNode As IPreferencesNode)
            Me.mChildNode = changedChildNode
        End Sub

        Public ReadOnly Property ChildNode() As IPreferencesNode
            Get
                Return mChildNode
            End Get
        End Property
    End Class

    Public Delegate Sub ChildNodeEventHandler(ByVal Sender As Object, ByVal Args As ChildNodeEventArgs)

End Namespace
